home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DEMOS / 3DROTSCP.ZIP / SINCOS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1994-03-06  |  3.4 KB  |  82 lines
  1. const vgamaxx  = 319;
  2.       vgamaxy  = 199;
  3.       maxcolor = 255;
  4.       CosArr:Array[0..359] of Integer =(
  5.       1000,
  6. 1000,999,999,998,996,995,993,990,988,985,
  7. 982,978,974,970,966,961,956,951,946,940,
  8. 934,927,921,914,906,899,891,883,875,866,
  9. 857,848,839,829,819,809,799,788,777,766,
  10. 755,743,731,719,707,695,682,669,656,643,
  11. 629,616,602,588,574,559,545,530,515,500,
  12. 485,469,454,438,423,407,391,375,358,342,
  13. 326,309,292,276,259,242,225,208,191,174,
  14. 156,139,122,105,87,70,52,35,17,0,
  15. -17,-35,-52,-70,-87,-105,-122,-139,-156,-174,
  16. -191,-208,-225,-242,-259,-276,-292,-309,-326,-342,
  17. -358,-375,-391,-407,-423,-438,-454,-469,-485,-500,
  18. -515,-530,-545,-559,-574,-588,-602,-616,-629,-643,
  19. -656,-669,-682,-695,-707,-719,-731,-743,-755,-766,
  20. -777,-788,-799,-809,-819,-829,-839,-848,-857,-866,
  21. -875,-883,-891,-899,-906,-914,-921,-927,-934,-940,
  22. -946,-951,-956,-961,-966,-970,-974,-978,-982,-985,
  23. -988,-990,-993,-995,-996,-998,-999,-999,-1000,-1000,
  24. -1000,-999,-999,-998,-996,-995,-993,-990,-988,-985,
  25. -982,-978,-974,-970,-966,-961,-956,-951,-946,-940,
  26. -934,-927,-921,-914,-906,-899,-891,-883,-875,-866,
  27. -857,-848,-839,-829,-819,-809,-799,-788,-777,-766,
  28. -755,-743,-731,-719,-707,-695,-682,-669,-656,-643,
  29. -629,-616,-602,-588,-574,-559,-545,-530,-515,-500,
  30. -485,-469,-454,-438,-423,-407,-391,-375,-358,-342,
  31. -326,-309,-292,-276,-259,-242,-225,-208,-191,-174,
  32. -156,-139,-122,-105,-87,-70,-52,-35,-17,0,
  33. 17,35,52,70,87,105,122,139,156,174,
  34. 191,208,225,242,259,276,292,309,326,342,
  35. 358,375,391,407,423,438,454,469,485,500,
  36. 515,530,545,559,574,588,602,616,629,643,
  37. 656,669,682,695,707,719,731,743,755,766,
  38. 777,788,799,809,819,829,839,848,857,866,
  39. 875,883,891,899,906,914,921,927,934,940,
  40. 946,951,956,961,966,970,974,978,982,985,
  41. 988,990,993,995,996,998,999,999,1000);
  42.  
  43.  SinArr:Array[0..359] of Integer =(
  44.  0,17,35,52,70,87,105,122,139,156,174,
  45. 191,208,225,242,259,276,292,309,326,342,
  46. 358,375,391,407,423,438,454,469,485,500,
  47. 515,530,545,559,574,588,602,616,629,643,
  48. 656,669,682,695,707,719,731,743,755,766,
  49. 777,788,799,809,819,829,839,848,857,866,
  50. 875,883,891,899,906,914,921,927,934,940,
  51. 946,951,956,961,966,970,974,978,982,985,
  52. 988,990,993,995,996,998,999,999,1000,1000,
  53. 1000,999,999,998,996,995,993,990,988,985,
  54. 982,978,974,970,966,961,956,951,946,940,
  55. 934,927,921,914,906,899,891,883,875,866,
  56. 857,848,839,829,819,809,799,788,777,766,
  57. 755,743,731,719,707,695,682,669,656,643,
  58. 629,616,602,588,574,559,545,530,515,500,
  59. 485,469,454,438,423,407,391,375,358,342,
  60. 326,309,292,276,259,242,225,208,191,174,
  61. 156,139,122,105,87,70,52,35,17,0,
  62. -17,-35,-52,-70,-87,-105,-122,-139,-156,-174,
  63. -191,-208,-225,-242,-259,-276,-292,-309,-326,-342,
  64. -358,-375,-391,-407,-423,-438,-454,-469,-485,-500,
  65. -515,-530,-545,-559,-574,-588,-602,-616,-629,-643,
  66. -656,-669,-682,-695,-707,-719,-731,-743,-755,-766,
  67. -777,-788,-799,-809,-819,-829,-839,-848,-857,-866,
  68. -875,-883,-891,-899,-906,-914,-921,-927,-934,-940,
  69. -946,-951,-956,-961,-966,-970,-974,-978,-982,-985,
  70. -988,-990,-993,-995,-996,-998,-999,-999,-1000,-1000,
  71. -1000,-999,-999,-998,-996,-995,-993,-990,-988,-985,
  72. -982,-978,-974,-970,-966,-961,-956,-951,-946,-940,
  73. -934,-927,-921,-914,-906,-899,-891,-883,-875,-866,
  74. -857,-848,-839,-829,-819,-809,-799,-788,-777,-766,
  75. -755,-743,-731,-719,-707,-695,-682,-669,-656,-643,
  76. -629,-616,-602,-588,-574,-559,-545,-530,-515,-500,
  77. -485,-469,-454,-438,-423,-407,-391,-375,-358,-342,
  78. -326,-309,-292,-276,-259,-242,-225,-208,-191,-174,
  79. -156,-139,-122,-105,-87,-70,-52,-35,-17
  80.  
  81. );
  82.